home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / dynapack / form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-11-11  |  10.0 KB  |  309 lines
  1. VERSION 5.00
  2. Object = "{E548D383-7882-11D2-8D50-0000B456D8CA}#3.0#0"; "DynaSliderX.ocx"
  3. Begin VB.Form Form1 
  4.    BackColor       =   &H00000000&
  5.    Caption         =   "Test DynaSlider - http://www.station-media.com/dynamedia"
  6.    ClientHeight    =   6375
  7.    ClientLeft      =   60
  8.    ClientTop       =   345
  9.    ClientWidth     =   8835
  10.    LinkTopic       =   "Form1"
  11.    Picture         =   "Form1.frx":0000
  12.    ScaleHeight     =   6375
  13.    ScaleWidth      =   8835
  14.    StartUpPosition =   3  'Windows Default
  15.    Begin DynaSliderX.DynaSlider DynaSlider9 
  16.       Height          =   3690
  17.       Left            =   8250
  18.       TabIndex        =   15
  19.       Top             =   525
  20.       Width           =   315
  21.       _ExtentX        =   556
  22.       _ExtentY        =   6509
  23.       MaxValue        =   6780
  24.       MinValue        =   4400
  25.       PicBackGround   =   "Form1.frx":1874
  26.       PicButton       =   "Form1.frx":3028
  27.       ButtonBorderMax =   39
  28.       ButtonBorderMin =   40
  29.       Value           =   6780
  30.       PicBackGround   =   "Form1.frx":3304
  31.       PicButton       =   "Form1.frx":4AB8
  32.    End
  33.    Begin DynaSliderX.DynaSlider DynaSlider10 
  34.       Height          =   2610
  35.       Left            =   6120
  36.       TabIndex        =   14
  37.       Top             =   120
  38.       Width           =   1440
  39.       _ExtentX        =   2540
  40.       _ExtentY        =   4604
  41.       PicBackGround   =   "Form1.frx":4D94
  42.       PicButton       =   "Form1.frx":9248
  43.       ButtonBorderMax =   18
  44.       ButtonBorderMin =   30
  45.       Value           =   500
  46.       PicBackGround   =   "Form1.frx":98D0
  47.       PicButton       =   "Form1.frx":DD84
  48.       LockStep        =   5
  49.    End
  50.    Begin DynaSliderX.DynaSlider DynaSlider5 
  51.       Height          =   1095
  52.       Left            =   6240
  53.       TabIndex        =   6
  54.       Top             =   3480
  55.       Width           =   450
  56.       _ExtentX        =   794
  57.       _ExtentY        =   1931
  58.       MaxValue        =   255
  59.       PicBackGround   =   "Form1.frx":E40C
  60.       PicButton       =   "Form1.frx":F134
  61.       ButtonBorderMax =   3
  62.       ButtonBorderMin =   2
  63.       Value           =   100
  64.       PicBackGround   =   "Form1.frx":F43C
  65.       PicButton       =   "Form1.frx":10164
  66.    End
  67.    Begin DynaSliderX.DynaSlider DynaSlider3 
  68.       Height          =   405
  69.       Left            =   2250
  70.       TabIndex        =   4
  71.       Top             =   510
  72.       Width           =   3765
  73.       _ExtentX        =   6641
  74.       _ExtentY        =   714
  75.       MaxValue        =   255
  76.       PicBackGround   =   "Form1.frx":1046C
  77.       PicButton       =   "Form1.frx":121F8
  78.       ButtonBorderMax =   5
  79.       ButtonBorderMin =   5
  80.       Value           =   255
  81.       SliderVertical  =   0   'False
  82.       PicBackGround   =   "Form1.frx":12624
  83.       PicButton       =   "Form1.frx":143B0
  84.    End
  85.    Begin DynaSliderX.DynaSlider DynaSlider2 
  86.       Height          =   855
  87.       Left            =   1320
  88.       TabIndex        =   3
  89.       Top             =   3600
  90.       Width           =   3945
  91.       _ExtentX        =   6959
  92.       _ExtentY        =   1508
  93.       MaxValue        =   3930
  94.       MinValue        =   20
  95.       PicBackGround   =   "Form1.frx":147DC
  96.       PicButton       =   "Form1.frx":1865C
  97.       ButtonBorderMax =   8
  98.       ButtonBorderMin =   8
  99.       Value           =   3930
  100.       SliderVertical  =   0   'False
  101.       PicBackGround   =   "Form1.frx":18B44
  102.       PicButton       =   "Form1.frx":1C9C4
  103.    End
  104.    Begin DynaSliderX.DynaSlider DynaSlider1 
  105.       Height          =   3945
  106.       Left            =   135
  107.       TabIndex        =   1
  108.       Top             =   600
  109.       Width           =   855
  110.       _ExtentX        =   1508
  111.       _ExtentY        =   6959
  112.       MaxValue        =   2415
  113.       MinValue        =   20
  114.       PicBackGround   =   "Form1.frx":1CEAC
  115.       PicButton       =   "Form1.frx":21008
  116.       ButtonBorderMax =   5
  117.       ButtonBorderMin =   5
  118.       Value           =   1000
  119.       PicBackGround   =   "Form1.frx":214F0
  120.       PicButton       =   "Form1.frx":2564C
  121.    End
  122.    Begin DynaSliderX.DynaSlider DynaSlider4 
  123.       Height          =   705
  124.       Left            =   120
  125.       TabIndex        =   5
  126.       Top             =   4800
  127.       Width           =   3660
  128.       _ExtentX        =   6456
  129.       _ExtentY        =   1244
  130.       PicBackGround   =   "Form1.frx":25B34
  131.       PicButton       =   "Form1.frx":28898
  132.       ButtonBorderMax =   50
  133.       ButtonBorderMin =   50
  134.       SliderVertical  =   0   'False
  135.       PicBackGround   =   "Form1.frx":28D50
  136.       PicButton       =   "Form1.frx":2BAB4
  137.       LockStep        =   10
  138.    End
  139.    Begin DynaSliderX.DynaSlider DynaSlider6 
  140.       Height          =   1095
  141.       Left            =   6720
  142.       TabIndex        =   7
  143.       Top             =   3480
  144.       Width           =   450
  145.       _ExtentX        =   794
  146.       _ExtentY        =   1931
  147.       MaxValue        =   255
  148.       PicBackGround   =   "Form1.frx":2BF6C
  149.       PicButton       =   "Form1.frx":2CC94
  150.       ButtonBorderMax =   3
  151.       ButtonBorderMin =   2
  152.       Value           =   140
  153.       PicBackGround   =   "Form1.frx":2CF9C
  154.       PicButton       =   "Form1.frx":2DCC4
  155.       LockStep        =   10
  156.    End
  157.    Begin DynaSliderX.DynaSlider DynaSlider7 
  158.       Height          =   1095
  159.       Left            =   7200
  160.       TabIndex        =   8
  161.       Top             =   3480
  162.       Width           =   450
  163.       _ExtentX        =   794
  164.       _ExtentY        =   1931
  165.       MaxValue        =   255
  166.       PicBackGround   =   "Form1.frx":2DFCC
  167.       PicButton       =   "Form1.frx":2ECF4
  168.       ButtonBorderMax =   3
  169.       ButtonBorderMin =   2
  170.       Value           =   159
  171.       PicBackGround   =   "Form1.frx":2EFFC
  172.       PicButton       =   "Form1.frx":2FD24
  173.       LockStep        =   1
  174.    End
  175.    Begin DynaSliderX.DynaSlider DynaSlider8 
  176.       Height          =   1095
  177.       Left            =   7680
  178.       TabIndex        =   9
  179.       Top             =   3480
  180.       Width           =   450
  181.       _ExtentX        =   794
  182.       _ExtentY        =   1931
  183.       MaxValue        =   255
  184.       PicBackGround   =   "Form1.frx":3002C
  185.       PicButton       =   "Form1.frx":30D54
  186.       ButtonBorderMax =   3
  187.       ButtonBorderMin =   2
  188.       Value           =   120
  189.       PicBackGround   =   "Form1.frx":3105C
  190.       PicButton       =   "Form1.frx":31D84
  191.       LockStep        =   2
  192.    End
  193.    Begin VB.Label Label3 
  194.       BackColor       =   &H0000FFFF&
  195.       Height          =   255
  196.       Index           =   3
  197.       Left            =   7770
  198.       TabIndex        =   13
  199.       Top             =   3180
  200.       Width           =   255
  201.    End
  202.    Begin VB.Label Label3 
  203.       BackColor       =   &H00FF0000&
  204.       Height          =   255
  205.       Index           =   2
  206.       Left            =   7290
  207.       TabIndex        =   12
  208.       Top             =   3195
  209.       Width           =   255
  210.    End
  211.    Begin VB.Label Label3 
  212.       BackColor       =   &H0000FF00&
  213.       Height          =   255
  214.       Index           =   1
  215.       Left            =   6810
  216.       TabIndex        =   11
  217.       Top             =   3195
  218.       Width           =   255
  219.    End
  220.    Begin VB.Label Label3 
  221.       BackColor       =   &H000000FF&
  222.       Height          =   255
  223.       Index           =   0
  224.       Left            =   6330
  225.       TabIndex        =   10
  226.       Top             =   3195
  227.       Width           =   255
  228.    End
  229.    Begin VB.Label Label1 
  230.       Alignment       =   2  'Center
  231.       BackStyle       =   0  'Transparent
  232.       Caption         =   "0000"
  233.       BeginProperty Font 
  234.          Name            =   "Arial"
  235.          Size            =   27.75
  236.          Charset         =   0
  237.          Weight          =   400
  238.          Underline       =   0   'False
  239.          Italic          =   0   'False
  240.          Strikethrough   =   0   'False
  241.       EndProperty
  242.       ForeColor       =   &H00FFFFFF&
  243.       Height          =   690
  244.       Left            =   3780
  245.       TabIndex        =   0
  246.       Top             =   4830
  247.       Width           =   1425
  248.    End
  249.    Begin VB.Image Image1 
  250.       Height          =   2415
  251.       Left            =   1200
  252.       Picture         =   "Form1.frx":3208C
  253.       Stretch         =   -1  'True
  254.       Top             =   1200
  255.       Width           =   3930
  256.    End
  257.    Begin VB.Label Label2 
  258.       Alignment       =   2  'Center
  259.       BackStyle       =   0  'Transparent
  260.       Caption         =   "SLIDER DEMONSTRATION"
  261.       BeginProperty Font 
  262.          Name            =   "Arial"
  263.          Size            =   12
  264.          Charset         =   0
  265.          Weight          =   700
  266.          Underline       =   -1  'True
  267.          Italic          =   -1  'True
  268.          Strikethrough   =   0   'False
  269.       EndProperty
  270.       ForeColor       =   &H00FFFFFF&
  271.       Height          =   375
  272.       Left            =   2340
  273.       TabIndex        =   2
  274.       Top             =   120
  275.       Width           =   3615
  276.    End
  277. Attribute VB_Name = "Form1"
  278. Attribute VB_GlobalNameSpace = False
  279. Attribute VB_Creatable = False
  280. Attribute VB_PredeclaredId = True
  281. Attribute VB_Exposed = False
  282. Private Sub DynaSlider1_ValueChanged()
  283.     Image1.Height = DynaSlider1.Value
  284. End Sub
  285. Private Sub DynaSlider2_ValueChanged()
  286.     Image1.Width = DynaSlider2.Value
  287. End Sub
  288. Private Sub DynaSlider3_ValueChanged()
  289.     Label2.ForeColor = RGB(DynaSlider3.Value, DynaSlider3.Value, DynaSlider3.Value)
  290. End Sub
  291. Private Sub DynaSlider4_ValueChanged()
  292.     Label1.Caption = DynaSlider4.Value
  293. End Sub
  294. Private Sub DynaSlider5_ValueChanged()
  295.     Label3(0).BackColor = RGB(DynaSlider5.Value, 0, 0)
  296. End Sub
  297. Private Sub DynaSlider6_ValueChanged()
  298.     Label3(1).BackColor = RGB(0, DynaSlider6.Value, 0)
  299. End Sub
  300. Private Sub DynaSlider7_ValueChanged()
  301.     Label3(2).BackColor = RGB(0, 0, DynaSlider7.Value)
  302. End Sub
  303. Private Sub DynaSlider8_ValueChanged()
  304.     Label3(3).BackColor = RGB(DynaSlider8.Value, DynaSlider8.Value, 0)
  305. End Sub
  306. Private Sub DynaSlider9_ValueChanged()
  307.     Form1.Height = DynaSlider9.Value
  308. End Sub
  309.